home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue61 / Stream / uSetup.pas < prev   
Encoding:
Pascal/Delphi Source File  |  2000-04-11  |  1.5 KB  |  78 lines
  1. unit uSetup;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, Buttons, Spin, ComCtrls, ExtCtrls;
  8.  
  9. type
  10.   TfrmSetup = class(TForm)
  11.     OKButton: TButton;
  12.     CancelButton: TButton;
  13.     TrackBar: TTrackBar;
  14.     lSpeed: TLabel;
  15.     Label2: TLabel;
  16.     Label3: TLabel;
  17.     Bevel1: TBevel;
  18.     procedure FormCreate(Sender: TObject);
  19.     procedure FormActivate(Sender: TObject);
  20.     procedure OKButtonClick(Sender: TObject);
  21.     procedure CancelButtonClick(Sender: TObject);
  22.     procedure TrackBarChange(Sender: TObject);
  23.     procedure FormShow(Sender: TObject);
  24.   private
  25.     { Private declarations }
  26.     Loading : Boolean;
  27.   public
  28.     { Public declarations }
  29.   end;
  30.  
  31. var
  32.   frmSetup: TfrmSetup;
  33.  
  34. implementation
  35.  
  36. uses
  37.   uScreenSaver, uGlobals;
  38.  
  39. {$R *.DFM}
  40.  
  41. procedure TfrmSetup.FormCreate(Sender: TObject);
  42. begin
  43.   Loading := True;
  44.   ReadINIFile;
  45. end;
  46.  
  47. procedure TfrmSetup.FormActivate(Sender: TObject);
  48. begin
  49.   if Loading then begin
  50.     Loading := False;
  51.   end;
  52. end;
  53.  
  54. procedure TfrmSetup.OKButtonClick(Sender: TObject);
  55. begin
  56.   Interval := (60-TrackBar.Position) * 1000;
  57.   WriteINIFile;
  58.   Close;
  59. end;
  60.  
  61. procedure TfrmSetup.CancelButtonClick(Sender: TObject);
  62. begin
  63.   Close;
  64. end;
  65.  
  66. procedure TfrmSetup.TrackBarChange(Sender: TObject);
  67. begin
  68.   lSpeed.Caption := 'Cycle Speed ('+IntToStr(60-TrackBar.Position)+' seconds)';
  69. end;
  70.  
  71. procedure TfrmSetup.FormShow(Sender: TObject);
  72. begin
  73.    TrackBar.Position := 60-(Interval div 1000);
  74. end;
  75.  
  76. end.
  77.  
  78.